object PTFrmOpenDlg: TPTFrmOpenDlg Left = 304 Top = 441 ActiveControl = FileNameEdt BorderIcons = [biSystemMenu, biMaximize] AutoScroll = False Caption = 'Open' ClientHeight = 265 ClientWidth = 451 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter ShowHint = True OnCloseQuery = FormCloseQuery OnDestroy = FormDestroy OnKeyDown = FormKeyDown OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object LookInTxt: TLabel Left = 8 Top = 8 Width = 38 Height = 13 Caption = 'Look &in:' FocusControl = PTShellCombo1 end object UpOneLevelBtn: TSpeedButton Left = 304 Top = 4 Width = 23 Height = 22 Hint = 'Up One Level|Go to the folder one level up.' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 2222222222222222222200000000000000020FBFBFBFBFBFBF020BFBFBFBFBFB FB020FBFB000000FBF020BFBF0FBFBFBFB020FBFB0BFBFBFBF020BF00000FBFB FB020FBF000FBFBFBF020BFBF0FBFBFBFB020FBFBFBFBFBFBF02000000000000 002220BFBFB02222222222000002222222222222222222222222} OnClick = UpOneLevelBtnClick end object ListBtn: TSpeedButton Tag = 2 Left = 400 Top = 4 Width = 23 Height = 22 Hint = 'List|Displays items in a list.' GroupIndex = 1 Down = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 22222FFF22222FFF22224442222244422222888F2FFF888F2FFF4F4200024F42 00028F8288828F82888244222222442222228822222288222222222222222222 2222222222222222222222222222222222222FFF22222FFF2222444222224442 2222888F2FFF888F2FFF4F4200024F4200028F8288828F828882442222224422 2222882222228822222222222222222222222222222222222222222222222222 22222FFF22222FFF22224442222244422222888F2FFF888F2FFF4F4200024F42 00028F8288828F82888244222222442222228822222288222222222222222222 2222222222222222222222222222222222222222222222222222} NumGlyphs = 2 OnClick = ViewBtnClick end object DetailsBtn: TSpeedButton Tag = 3 Left = 423 Top = 4 Width = 23 Height = 22 Hint = 'Details|Displays information about each item in the window.' GroupIndex = 1 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222 22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222 22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222 22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222 22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222 22222FFFFFFFFFFFFFFF44444444444444448888888888888888222222222222 22222222FFFF2FFF2FFF22200002000200022228888288828882222222222222 2222222222222222222222222222222222222222222222222222} NumGlyphs = 2 OnClick = ViewBtnClick end object CreateNewFolderBtn: TSpeedButton Left = 336 Top = 4 Width = 23 Height = 22 Hint = 'Create New Folder|Create a new folder here' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333FFFFFFFFFFF3330000000000033333388888888888F3330BFBFBFBFB0 33333383333333338F3330FBFBFBFBF033333383333333338F3330BFBFBFBFB0 33333383333333338F3330FBFBFBFBF033033383333333338F3830BFBFBFBFB0 30333383333333338F8F30FBFBFBFBF0033333833333333388F3300000000003 3030338888888888338F330BFBF03303033333383333833838F3333000033030 30333333888833838F8F33333333033333033333333338F33338333333333330 33333333333333338F3333333333333333333333333333333333333333333330 33333333333333338F3333333333333333333333333333333333} NumGlyphs = 2 OnClick = CreateNewFolderBtnClick end object ShowTreeBtn: TSpeedButton Left = 368 Top = 4 Width = 23 Height = 23 Hint = 'Show tree (F12)|Show the explorer tree.' AllowAllUp = True GroupIndex = 2 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333300033333333300030F03333333330333000333333333033333333 00033330333300030F0333303333033300033330333333333333333033300033 333333300030F033333333303330003333333333333333333333330003333333 3333330F03333333333333000333333333333333333333333333} OnClick = ShowTreeBtnClick end object PTShellCombo1: TPTShellCombo Left = 72 Top = 4 Width = 221 Height = 22 HelpContext = 28456 ShellList = PTShellList1 Options = [ptscoAutofill] DropDownCount = 16 TabOrder = 0 end object Panel1: TPanel Left = 0 Top = 181 Width = 451 Height = 84 Align = alBottom BevelOuter = bvNone TabOrder = 2 object Label2: TLabel Left = 12 Top = 10 Width = 48 Height = 13 Caption = 'File &name:' FocusControl = FileNameEdt end object FilesOfTypeTxt: TLabel Left = 12 Top = 38 Width = 59 Height = 13 Caption = 'Files of &type:' FocusControl = FileTypesCbx end object FileNameEdt: TEdit Left = 88 Top = 6 Width = 277 Height = 21 TabOrder = 0 OnChange = FileNameEdtChange end object FileNameCbx: TComboBox Left = 88 Top = 6 Width = 277 Height = 21 TabStop = False ItemHeight = 13 TabOrder = 4 Visible = False end object FileTypesCbx: TPTCombobox Left = 88 Top = 34 Width = 277 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 1 OnSelEndOk = FileTypesCbxSelEndOk end object OpenBtn: TButton Left = 372 Top = 4 Width = 75 Height = 23 HelpContext = 28529 Caption = '&Open' Default = True ModalResult = 1 TabOrder = 2 end object CancelBtn: TButton Left = 372 Top = 32 Width = 75 Height = 23 HelpContext = 28444 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 end object ReadOnlyChk: TCheckBox Left = 88 Top = 60 Width = 233 Height = 17 Caption = 'Open as &read-only' TabOrder = 5 end object HelpBtn: TButton Left = 372 Top = 60 Width = 75 Height = 23 Caption = '&Help' TabOrder = 6 Visible = False end end object PTSplitter1: TPTSplitter Left = 4 Top = 32 Width = 441 Height = 149 Color = clBtnFace ParentColor = False Position = 200 TabOrder = 1 object TPTPane Left = 0 Top = 0 Width = 200 Height = 149 MinSize = 4 Index = 0 object PTShellTree1: TPTShellTree Left = 2 Top = 2 Width = 196 Height = 145 Options = [ptstoAutoFill, ptstoDefaultKeyHandling, ptstoContextMenus, ptstoDynamicRefresh] BorderStyle = bsNone ShowRoot = False HideSelection = False Indent = 19 OnChange = PTShellTree1Change Align = alClient ParentColor = False TabOrder = 0 end end object TPTPane Left = 203 Top = 0 Width = 238 Height = 149 MinSize = 60 Index = 1 object PTShellList1: TPTShellList Left = 2 Top = 2 Width = 234 Height = 145 HelpContext = 28549 Options = [ptsloAutoFill, ptsloDefaultKeyHandling, ptsloContextMenus, ptsloDynamicRefresh] Align = alClient BorderStyle = bsNone ReadOnly = False HideSelection = False IconOptions.AutoArrange = True OnChange = PTShellList1Change PopupMenu = LvPopup TabOrder = 0 ViewStyle = vsList end end end object LvPopup: TPopupMenu Left = 408 Top = 44 object View1: TMenuItem Caption = '&View' Hint = 'Contains commands for customizing this window.' object LargeIconsMitm1: TMenuItem Caption = 'Lar&ge icons' Enabled = False Hint = 'Displays items by using large icons.' RadioItem = True OnClick = ViewBtnClick end object SmalliconsMItm1: TMenuItem Tag = 1 Caption = 'S&mall icons' Enabled = False Hint = 'Displays items by using small icons.' RadioItem = True OnClick = ViewBtnClick end object ListMitm1: TMenuItem Tag = 2 Caption = '&List' Checked = True Hint = 'Displays items in a list.' RadioItem = True OnClick = ViewBtnClick end object DetailsMitm1: TMenuItem Tag = 3 Caption = '&Details' Hint = 'Displays information about each item in the window.' RadioItem = True OnClick = ViewBtnClick end end object N1: TMenuItem Caption = '-' end object PasteMitm1: TMenuItem Caption = '&Paste' Hint = 'Inserts the items you have copied or cut into the selected locat' + 'ion.' OnClick = PasteMitm1Click end object N3: TMenuItem Caption = '-' end object New1: TMenuItem Caption = 'Ne&w' Hint = 'Contains commands for creating new items.' object FolderMitm: TMenuItem Caption = '&Folder' Hint = 'Creates a new, empty folder.' OnClick = CreateNewFolderBtnClick end end object N2: TMenuItem Caption = '-' end object PropertiesMitm: TMenuItem Caption = 'P&roperties' Hint = 'Displays properties for this folder.' OnClick = PropertiesMitmClick end end end